home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / makro merge-file (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  349 lines
  1. 60000 ;*********************************
  2. 60010 ;*                               *
  3. 60020 ;*   grafik-makros merge file    *
  4. 60030 ;*   ------------------------    *
  5. 60040 ;*           zu den              *
  6. 60050 ;*   giga-ass grafik-routinen    *
  7. 60060 ;*                               *
  8. 60070 ;*********************************
  9. 60080 ;
  10. 60090 ;---------------------------------
  11. 60100 ; dieses file ist einem giga-ass
  12. 60110 ; quelltext, der auf die grafik-
  13. 60120 ; routinen zugreift, mit dem "m"-
  14. 60130 ; befehl anzuhaengen.
  15. 60140 ;
  16. 60150 ; den makros muss ueber die basis
  17. 60160 ; adresse "ba" mitgeteilt werden,
  18. 60170 ; an welcher stelle im speicher
  19. 60180 ; die grafik-routinen liegen.
  20. 60190 ;
  21. 60200 ; die makros selbst greifen nur
  22. 60210 ; ueber die die grafik-routinen
  23. 60220 ; einleitende jump-table auf die
  24. 60230 ; routinen zu.
  25. 60240 ;
  26. 60250 ;---------------------------------
  27. 60260 ;
  28. 60270 ;
  29. 60280 ;---------------------------------
  30. 60290 ;
  31. 60300 ; zu jeder grafik-routine mit
  32. 60310 ; parametern gibt es zwei makros:
  33. 60320 ;
  34. 60330 ; a) ein makro, der als parameter
  35. 60340 ;    die aktuellen parameter
  36. 60350 ;    selbst als wert-parameter
  37. 60360 ;    erhaelt
  38. 60370 ;    ("call by value")
  39. 60380 ;
  40. 60390 ; b) ein makro, der als parameter
  41. 60400 ;    diejenigen adressen mitge-
  42. 60410 ;    teilt bekommt, an denen die
  43. 60420 ;    aktuellen parameter stehen
  44. 60430 ;    ("call by reference")
  45. 60440 ;
  46. 60450 ; makros vom typ b) unterscheiden
  47. 60460 ; sich von denjenigen vom typ a)
  48. 60470 ; durch ein angehaengtes "i"
  49. 60480 ; (z.b. linei, framei, circlei),
  50. 60490 ; welches fuer "indirekte"
  51. 60500 ; parameter-angabe steht.
  52. 60510 ;
  53. 60520 ;---------------------------------
  54. 60530 ;
  55. 60540 tab(ba=$c000
  56. 60550 ;
  57. 60560 ;=================================
  58. 60570 ; grafik-routinen uebergreifende
  59. 60580 ; makros
  60. 60590 ;=================================
  61. 60600 ;
  62. 60610 getspacewait
  63. 60620  mid$203
  64. 60630  str$#$3c
  65. 60640  (NULL)*-4
  66. 60650  mid$203
  67. 60660  str$#$3c
  68. 60670  (NULL)*-4
  69. 60680 new
  70. 60690 getborderclosecolor
  71. 60700  mid$#color
  72. 60710  (NULL)$d020
  73. 60720 new
  74. 60730 getbackgroundclosecolor
  75. 60740  mid$#color
  76. 60750  (NULL)$d021
  77. 60760 new
  78. 60770 getinterrupt_on
  79. 60780  mid$#$81
  80. 60790  (NULL)$dc0d
  81. 60800 new
  82. 60810 getlcvclosexcval,ycval
  83. 60820  mid$#<(xcval)
  84. 60830  peek#>(xcval)
  85. 60840  len#ycval
  86. 60850 new
  87. 60860 getlciclosexcadr,ycadr
  88. 60870  mid$xcadr
  89. 60880  peekxcadr+1
  90. 60890  lenycadr
  91. 60900 new
  92. 60910 getmcvclosexcval,ycval,adr
  93. 60920  lcvclosexcval,ycval
  94. 60930  (NULL)adr
  95. 60940  (NULL)adr+1
  96. 60950  (NULL)adr+2
  97. 60960 new
  98. 60970 getmciclosexcadr,ycadr,adr
  99. 60980  mid$xcadr
  100. 60990  peekxcadr+1
  101. 61000  lenycadr
  102. 61010  (NULL)adr
  103. 61020  (NULL)adr+1
  104. 61030  (NULL)adr+2
  105. 61040 new
  106. 61050 ;
  107. 61060 ;
  108. 61070 ;=================================
  109. 61080 ; makros zum aufruf der
  110. 61090 ; grafik-routinen
  111. 61100 ;=================================
  112. 61110 ;
  113. 61120 getpagecloseval
  114. 61130  peek#val
  115. 61140  (NULL)ba+$00
  116. 61150 new
  117. 61160 getpageicloseadr
  118. 61170  peekadr
  119. 61180  (NULL)ba+$00
  120. 61190 new
  121. 61200 getdesigncloseval
  122. 61210  peek#val
  123. 61220  (NULL)ba+$03
  124. 61230 new
  125. 61240 getdesignicloseadr
  126. 61250  peekadr
  127. 61260  (NULL)ba+$03
  128. 61270 new
  129. 61280 getoff
  130. 61290  (NULL)ba+$06
  131. 61300 new
  132. 61310 getinv
  133. 61320  (NULL)ba+$09
  134. 61330  interrupt_on
  135. 61340 new
  136. 61350 getclear
  137. 61360  (NULL)ba+$0c
  138. 61370 new
  139. 61380 getcolorcloseval
  140. 61390  mid$#val
  141. 61400  (NULL)ba+$0f
  142. 61410 new
  143. 61420 getcoloricloseadr
  144. 61430  mid$adr
  145. 61440  (NULL)ba+$0f
  146. 61450 new
  147. 61460 getsetcolcloselnval,clval,coval
  148. 61470  mid$#lnval
  149. 61480  peek#clval
  150. 61490  len#coval
  151. 61500  (NULL)ba+$12
  152. 61510 new
  153. 61520 getsetcolicloselnadr,cladr,coadr
  154. 61530  mid$lnadr
  155. 61540  peekcladr
  156. 61550  lencoadr
  157. 61560  (NULL)ba+$12
  158. 61570 new
  159. 61580 ;---------------------------------
  160. 61590 ; einzelpunkt makros
  161. 61600 ;---------------------------------
  162. 61610 getcleardotclosexcval,ycval
  163. 61620  lcvclosexcval,ycval
  164. 61630  (NULL)ba+$15
  165. 61640  interrupt_on
  166. 61650 new
  167. 61660 getcleardoticlosexcadr,ycadr
  168. 61670  lciclosexcadr,ycadr
  169. 61680  (NULL)ba+$15
  170. 61690  interrupt_on
  171. 61700 new
  172. 61710 getsetclosexcval,ycval
  173. 61720  lcvclosexcval,ycval
  174. 61730  (NULL)ba+$18
  175. 61740  interrupt_on
  176. 61750 new
  177. 61760 getseticlosexcadr,ycadr
  178. 61770  lciclosexcadr,ycadr
  179. 61780  (NULL)ba+$18
  180. 61790  interrupt_on
  181. 61800 new
  182. 61810 gettestclosexcval,ycval
  183. 61820  lcvclosexcval,ycval
  184. 61830  (NULL)ba+$1b
  185. 61840  interrupt_on
  186. 61850 new
  187. 61860 gettesticlosexcadr,ycadr
  188. 61870  lciclosexcadr,ycadr
  189. 61880  (NULL)ba+$1b
  190. 61890  interrupt_on
  191. 61900 new
  192. 61910 getaccessclosexcval,ycval
  193. 61920  lcvclosexcval,ycval
  194. 61930  (NULL)ba+$1e
  195. 61940  interrupt_on
  196. 61950 new
  197. 61960 getaccessiclosexcadr,ycadr
  198. 61970  lciclosexcadr,ycadr
  199. 61980  (NULL)ba+$1e
  200. 61990  interrupt_on
  201. 62000 new
  202. 62010 ;---------------------------------
  203. 62020 ; makros fuer mehrere punkte
  204. 62030 ;---------------------------------
  205. 62040 getlineclosex0val,y0val,x1val,y1val
  206. 62050  mcvclosex0val,y0val,ba+$21
  207. 62060  mcvclosex1val,y1val,ba+$24
  208. 62070  (NULL)ba+$27
  209. 62080  interrupt_on
  210. 62090 new
  211. 62100 getlineiclosex0adr,y0adr,x1adr,y1adr
  212. 62110  mciclosex0adr,y0adr,ba+$21
  213. 62120  mciclosex1adr,y1adr,ba+$24
  214. 62130  (NULL)ba+$27
  215. 62140  interrupt_on
  216. 62150 new
  217. 62160 getlinecclosex0val,y0val,x1val,y1valiga-assready
  218. 62170  mcvclosex0val,y0val,ba+$21
  219. 62180  mcvclosex1val,y1val,ba+$24
  220. 62190  (NULL)ba+$2a
  221. 62200  interrupt_on
  222. 62210 new
  223. 62220 getlineicclosex0adr,y0adr,x1adr,y1adr
  224. 62230  mciclosex0adr,y0adr,ba+$21
  225. 62240  mciclosex1adr,y1adr,ba+$24
  226. 62250  (NULL)ba+$2a
  227. 62260  interrupt_on
  228. 62270 new
  229. 62280 getframeclosex0val,y0val,x1val,y1val
  230. 62290  mcvclosex0val,y0val,ba+$2d
  231. 62300  mcvclosex1val,y1val,ba+$30
  232. 62310  (NULL)ba+$33
  233. 62320  interrupt_on
  234. 62330 new
  235. 62340 getframeiclosex0adr,y0adr,x1adr,y1adr
  236. 62350  mciclosex0adr,y0adr,ba+$2d
  237. 62360  mciclosex1adr,y1adr,ba+$30
  238. 62370  (NULL)ba+$33
  239. 62380  interrupt_on
  240. 62390 new
  241. 62400 getcframeclosex0val,y0val,x1val,y1val
  242. 62410  mcvclosex0val,y0val,ba+$2d
  243. 62420  mcvclosex1val,y1val,ba+$30
  244. 62430  (NULL)ba+$36
  245. 62440  interrupt_on
  246. 62450 new
  247. 62460 getcframeiclosex0adr,y0adr,x1adr,y1adr
  248. 62470  mciclosex0adr,y0adr,ba+$2d
  249. 62480  mciclosex1adr,y1adr,ba+$30
  250. 62490  (NULL)ba+$36
  251. 62500  interrupt_on
  252. 62510 new
  253. 62520 getfillclosexcval,ycval
  254. 62530  lcvclosexcval,ycval
  255. 62540  (NULL)ba+$39
  256. 62550  interrupt_on
  257. 62560 new
  258. 62570 getfilliclosexcadr,ycadr
  259. 62580  lciclosexcadr,ycadr
  260. 62590  (NULL)ba+$39
  261. 62600  interrupt_on
  262. 62610 new
  263. 62620 gettextcloseadr,line,column,expx,expy,case,textcolor
  264. 62630  mid$#column
  265. 62640  (NULL)ba+$3c
  266. 62650  mid$#line
  267. 62660  (NULL)ba+$3d
  268. 62670  mid$#expx
  269. 62680  (NULL)ba+$3e
  270. 62690  mid$#expy
  271. 62700  (NULL)ba+$3f
  272. 62710  mid$#case
  273. 62720  (NULL)ba+$40
  274. 62730  mid$#<(adr)
  275. 62740  len#>(adr)
  276. 62750  peek#textcolor
  277. 62760  (NULL)ba+$41
  278. 62770  interrupt_on
  279. 62780 new
  280. 62790 gettexticloseiadr,iline,icolumn,iexpx,iexpy,icase,itextcolor
  281. 62800  mid$icolumn
  282. 62810  (NULL)ba+$3c
  283. 62820  mid$iline
  284. 62830  (NULL)ba+$3d
  285. 62840  mid$iexpx
  286. 62850  (NULL)ba+$3e
  287. 62860  mid$iexpy
  288. 62870  (NULL)ba+$3f
  289. 62880  mid$icase
  290. 62890  (NULL)ba+$40
  291. 62900  mid$iadr
  292. 62910  leniadr+1
  293. 62920  peekitextcolor
  294. 62930  (NULL)ba+$41
  295. 62940  interrupt_on
  296. 62950 new
  297. 62960 getcircleclosexcval,ycval,radval
  298. 62970  mid$#radval
  299. 62980  (NULL)ba+$44
  300. 62990  lcvclosexcval,ycval
  301. 63000  (NULL)ba+$45
  302. 63010  interrupt_on
  303. 63020 new
  304. 63030 getcircleiclosexcadr,ycadr,radadr
  305. 63040  mid$radadr
  306. 63050  (NULL)ba+$44
  307. 63060  lciclosexcadr,ycadr
  308. 63070  (NULL)ba+$45
  309. 63080  interrupt_on
  310. 63090 new
  311. 63100 getccircleclosexcval,ycval,radval
  312. 63110  mid$#radval
  313. 63120  (NULL)ba+$44
  314. 63130  lcvclosexcval,ycval
  315. 63140  (NULL)ba+$48
  316. 63150  interrupt_on
  317. 63160 new
  318. 63170 getccircleiclosexcadr,ycadr,radadr
  319. 63180  mid$radadr
  320. 63190  (NULL)ba+$44
  321. 63200  lciclosexcadr,ycadr
  322. 63210  (NULL)ba+$48
  323. 63220  interrupt_on
  324. 63230 new
  325. 63240 getlinesclosepointer
  326. 63250  mid$#<(pointer)
  327. 63260  len#>(pointer)
  328. 63270  (NULL)ba+$4b
  329. 63280  interrupt_on
  330. 63290 new
  331. 63300 getlinesicloseipointer
  332. 63310  mid$ipointer
  333. 63320  lenipointer+1
  334. 63330  (NULL)ba+$4b
  335. 63340  interrupt_on
  336. 63350 new
  337. 63360 getlinescclosepointer
  338. 63370  mid$#<(pointer)
  339. 63380  len#>(pointer)
  340. 63390  (NULL)ba+$4e
  341. 63400  interrupt_on
  342. 63410 new
  343. 63420 getlinesiccloseipointer
  344. 63430  mid$ipointer
  345. 63440  lenipointer+1
  346. 63450  (NULL)ba+$4e
  347. 63460  interrupt_on
  348. 63470 new
  349.